home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 076-100 / disk_084 / ed / catsub.c < prev    next >
C/C++ Source or Header  |  1992-05-06  |  684b  |  41 lines
  1. /*
  2.  * Copyright 1987 Brian Beattie Rights Reserved.
  3.  *
  4.  * Permission to copy and/or distribute granted under the
  5.  * following conditions:
  6.  *
  7.  * 1). No charge may be made other than resonable charges
  8.  *    for reproduction.
  9.  *
  10.  * 2). This notice must remain intact.
  11.  *
  12.  * 3). No further restrictions may be added.
  13.  *
  14.  */
  15. #include <stdio.h>
  16. #include "tools.h"
  17. #include "ed.h"
  18.  
  19. char    *
  20. catsub(from, to, sub, new, newend)
  21. char    *from, *to, *sub, *new, *newend;
  22. {
  23.     char    *cp, *cp2;
  24.  
  25.     for(cp = new; *sub != EOS && cp < newend;)
  26.     {
  27.         if(*sub == DITTO)
  28.             for(cp2 = from; cp2 < to;)
  29.             {
  30.                 *cp++ = *cp2++;
  31.                 if(cp >= newend)
  32.                     break;
  33.             }
  34.         else
  35.             *cp++ = *sub;
  36.         sub++;
  37.     }
  38.  
  39.     return(cp);
  40. }
  41.